home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Überweisung_groß.inbpri < prev    next >
Text File  |  1999-03-27  |  6KB  |  215 lines
  1. 1$VER: Überweisung_groß 1.05 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.05
  6. %%Title: (MT-RechnungIII - Überweisung in Großbuchstaben)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: Ueberweisung 427 300 null () ()
  9. %%DocumentNeededResources: font Courier
  10. %%BoundingBox: 0 0 427 300
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: Ueberweisung
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [427 300] >> setpagedevice
  18.  
  19. /PageSize [427 300] def
  20.  
  21. /DokumentRandX 28 def
  22. /DokumentRandY 65 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. %%EndSetup
  43.  
  44. %%BeginnResource
  45. %% Definition ISO encoding, jedoch nur GROßBUCHSTABEN
  46. /ISOGROSS
  47. [
  48.  /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  49.  /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  50.  /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  51.  /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  52.  /space /exclam /quotedbl /numbersign /dollar /percent /ampersand
  53.  /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period
  54.  /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon
  55.  /semicolon /less /equal /greater /question /at /A /B /C /D /E /F /G /H
  56.  /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft
  57.  /backslash /bracketright /asciicircum /underscore /quoteleft /A /B /C
  58.  /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z
  59.  /braceleft /bar /braceright /asciitilde /.notdef /.notdef /.notdef
  60.  /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  61.  /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /dotlessi /grave
  62.  /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef
  63.  /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /space /exclamdown
  64.  /cent /sterling /euro /yen /brokenbar /section /dieresis /copyright
  65.  /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
  66.  /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph
  67.  /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright
  68.  /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute
  69.  /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute
  70.  /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis
  71.  /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
  72.  /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn
  73.  /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae
  74.  /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute
  75.  /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex
  76.  /Otilde /Odieresis /divide /Oslash /Ugrave /Uacute /Ucircumflex
  77.  /Udieresis /Yacute /Thorn /Ydieresis
  78. ] def
  79.  
  80. /reencodedict 5 dict def
  81. /ReEncode
  82. {
  83.      reencodedict begin
  84.      /newencoding exch def
  85.      /newfontname exch def
  86.      /basefontname exch def
  87.  
  88.      /basefontdict basefontname findfont def
  89.  
  90.      /newfont basefontdict maxlength dict def
  91.  
  92.      basefontdict
  93.      { exch dup dup /FID ne exch /Encoding ne and
  94.           { exch newfont 3 1 roll put }
  95.           { pop pop }
  96.           ifelse
  97.      } forall
  98.      newfont /FontName newfontname put
  99.      newfont /Encoding newencoding put
  100.      newfontname newfont definefont pop
  101.      end
  102. } def
  103.  
  104. /xdef {exch def} bind def
  105. /getfont {ISOGROSS ReEncode findfont exch scalefont def} bind def
  106. %%EndResource
  107.  
  108. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  109. /Courier 14 /OF0 /Courier /OF0 getfont
  110. Courier setfont
  111.  
  112. /XO 5.81 def
  113.  
  114. %% Währungssymbol vom Betrag entfernen
  115. ERWaehrung 1 gt
  116. {
  117.     /Betrag ERGesamtminRabSkonWert 3 get def
  118. }
  119. {
  120.     /Betrag ERGesamtminRabSkonWert 1 get def
  121. } ifelse
  122. Betrag ERWaehrungSymbol search pop exch pop
  123. dup length 0 gt
  124. { exch pop }
  125. { pop } ifelse
  126. /Betrag exch def
  127.  
  128. /zwischenstring 80 string def
  129. %% Ausgab des Dokuments
  130. DokumentRandX DokumentRandY moveto
  131. LiefFirma1 () gt
  132. {
  133.     LiefFirma1 zwischenstring copy pop
  134.     /laenge LiefFirma1 length def
  135. }
  136. {
  137.     LiefName zwischenstring copy pop
  138.     zwischenstring LiefName length ( ) putinterval
  139.     zwischenstring LiefName length 1 add LiefVorname putinterval
  140.     /laenge LiefName length LiefVorname length add 1 add def
  141. } ifelse
  142.  
  143. laenge 27 gt
  144. {
  145.     /laenge 27 def
  146. } if
  147. XO 0 zwischenstring 0 laenge getinterval ashow
  148.  
  149. DokumentRandY 24 sub /DokumentRandY exch def
  150. DokumentRandX DokumentRandY moveto
  151. XO 0 LiefKonto ashow
  152.  
  153. DokumentRandX 270 add DokumentRandY moveto
  154. XO 0 LiefBLZ ashow
  155.  
  156. DokumentRandY 24 sub /DokumentRandY exch def
  157. DokumentRandX DokumentRandY moveto
  158. /laenge LiefBank length def
  159. laenge 27 gt
  160. {
  161.     /laenge 27 def
  162. } if
  163. XO 0 LiefBank 0 laenge getinterval ashow
  164.  
  165. DokumentRandY 24 sub /DokumentRandY exch def
  166. DokumentRandX 156 add DokumentRandY moveto
  167. XO 0 ERWaehrungSymbol ashow
  168.  
  169. DokumentRandX 214 add DokumentRandY moveto
  170. XO 0 Betrag ashow
  171.  
  172. DokumentRandY 24 sub /DokumentRandY exch def
  173. DokumentRandX DokumentRandY moveto
  174. XO 0 (Rechnung: ) ashow
  175. XO 0 ERRechnungsNr ashow
  176.  
  177. DokumentRandY 24 sub /DokumentRandY exch def
  178. DokumentRandX DokumentRandY moveto
  179. XO 0 (Kundennummer: ) ashow
  180. XO 0 LiefKundenNrLieferant ashow
  181.  
  182. DokumentRandY 24 sub /DokumentRandY exch def
  183. DokumentRandX DokumentRandY moveto
  184. NiedFirma1 () gt
  185. {
  186.     NiedFirma1 zwischenstring copy pop
  187.     /laenge NiedFirma1 length def
  188. }
  189. {
  190.     NiedName zwischenstring copy pop
  191.     zwischenstring NiedName length ( ) putinterval
  192.     zwischenstring NiedName length 1 add NiedVorname putinterval
  193.     /laenge NiedName length NiedVorname length add 1 add def
  194. } ifelse
  195. zwischenstring laenge (, ) putinterval
  196. zwischenstring laenge 2 add NiedOrt putinterval
  197. laenge NiedOrt length add 2 add /laenge exch def
  198. laenge 27 gt
  199. {
  200.     /laenge 27 def
  201. } if
  202. XO 0 zwischenstring 0 laenge getinterval ashow
  203.  
  204. DokumentRandY 24 sub /DokumentRandY exch def
  205. DokumentRandX DokumentRandY moveto
  206. XO 0 NiedKonto ashow
  207. DokumentRandX 157 add DokumentRandY moveto
  208. XO 0 Betrag ashow
  209.  
  210. showpage
  211.  
  212. %%Trailer
  213. clear
  214. %%EOF
  215.